home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04b.d64 / random encoder (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  357b  |  15 lines
  1. 10 rem coding using a randomizing key
  2. 20 input"code message ";x$:gosub 100
  3. 30 poke216,99:print"encoded text: "z$
  4. 40 input"press return to recode";x$
  5. 50 x$=z$:gosub 100
  6. 60 poke216,99:print"reversed text: "z$
  7. 70 end
  8. 100 rem encoding routine
  9. 110 input"key number";k:x=rnd(-abs(k)/17)
  10. 120 z$="":for i=1 to len(x$)
  11. 130 x=asc(mid$(x$,i,1))
  12. 140 y=int(rnd(1)*255)
  13. 150 x=not(x and y)and(x or y):rem xor
  14. 160 z$=z$+chr$(x):next:return
  15.